<!--#include virtual="/Common/Config.asp" -->
<!--#include virtual="/Common/conn.asp" -->
<!--#include virtual="/2010admin/Check_IsLogin.asp" -->
<!--#include virtual="/Common/Function.asp" -->
<!--#include virtual="/2010admin/Common/Query_List_GetSQL.asp"-->
<!--#include virtual="/2010admin/Check_Priv.asp"-->

<%
'==========================================
'**********	Modify  Start  ****************
dim TITLE,DISPFILD,PAGESIZE,SQL,HV
dim AddLabel,addURL,delURL,editURL,detailURL,detailURLsn
TITLE="交通信息查询"
DISPFILD="TI_Type<信息类型,TI_Title<信息标题,Update_Name<更新人,Update_Date<更新日期"
PAGESIZE="20"
HV="H"

AddLabel="增加新信息"
addURL="Traffic_Info_AE.asp"
delURL="Traffic_Info_Del.asp"
editURL="Traffic_Info_AE.asp"
detailURL_target="_blank"
detailURLsn=1


'其他子操作列表 以#分隔
'Other_Title = "图库"
'Other_Url   = "Info_Pic_Query.asp"

'置顶排序分类
Sort_Name="信息资讯"


'设置置顶文件
Set_Top_URL = "Traffic_Info_Set_Top.asp"

'排序操作文件
Sort_Url 	= "Traffic_Info_Sort.asp"

Sort_Title  = "排序"


sql = "SELECT TI_ID AS Info_ID,TI_Type,TI_Title,Update_Name,Update_Date"&_
	  " FROM Traffic_Info WHERE 1=1  "

TI_Title	= reform("TI_Title")
TI_Type		= reform("TI_Type")

sql = LikeSql("TI_Title",TI_Title,sql)
sql = EqualSql("TI_Type",TI_Type,sql)

sql = sql &" ORDER BY Update_Date DESC "

'**********	Modify  Stop  *****************
'==========================================

If Request.form("previous")="上一页" Then PageNo=request.form("PageNo")-1
If Request.form("next")="下一页" Then PageNo=request.form("PageNo")+1
If Request.form("GotoPageNo")<>"" Then PageNo=request.form("GotoPageNo")
If Request.form("GotoPageNo2")<>"" Then	PageNo=request.form("GotoPageNo2")
%>

<HTML>
<HEAD>
<TITLE><%=Title%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="/2010admin/css/default.css" type="text/css" rel="stylesheet">
</HEAD>
<script language="javascript" src="/js/jquery.js"></script>
<script language="javascript" src="/2010admin/js/function.js"></script>
<body bgcolor="#ffffff"><br>
<form method="post" name="form">
<TABLE cellSpacing=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD width="43%" align=left><FONT size=4><B><%=TITLE%></B></FONT>
	<%if addURL<>"" then%>
	<%=GetSpace(4)%><input type='button' class='inputbutton' value='<%=AddLabel%>' name='add' onClick="window.location.href='<%=addURL%>'">
	<%end if%>
	<% If Sort_Title<>"" Then %>
	<input type='button' class='inputbutton' value='<%=Sort_Title%>' name='add' onClick="window.location.href='<%=Sort_URL%>'">
	<% End If %>
	
	</TD>
    <TD width="37%" align=right>
      <TABLE cellSpacing=0 cellPadding=1 border=0>
        <TR>
          <TD>信息标题</TD>
		  <TD>分类</TD>
        </TR>
        <TR>
          <TD><INPUT name="TI_Title" class=inputtext id="TI_Title" Value="<%=TI_Title%>" size=10></TD>
		   <TD><% MySelected "TI_Type","公交,的士,省汽车站,港口,火车站,机场","公交,的士,省汽车站,港口,火车站,机场","全部",TI_Type %></TD>

       </TR>
	   </TABLE>
	</TD>
    <TD vAlign=middle width="20%"> &nbsp;&nbsp;
      <INPUT type="submit" class="button" value="搜索" name="search">&nbsp;
	<br></TD>
  </TR>
  </TBODY>
</TABLE>
<HR SIZE=1>
<%
IF NOT Query_List_GetSQL(DISPFILD,SQL,PAGESIZE,HV,delURL,editURL,detailURL,detailURLsn) THEN
	Response.Write "<br><BR><center><font size=2><font color=#ff0000>程序执行错误！请与系统管理员联系！"
END If

Call conn_close()

%>
</FORM>

</BODY>
</HTML>
